home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue65 / classeng / Listing2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-12-11  |  807 b   |  26 lines
  1. type
  2.   EXmlDError = class(Exception);
  3.   EXmlDParseError = class(EXmlDError)
  4.     FErrorCode:   Integer;
  5.     FReason:      String;
  6.     FSrcText:     String;
  7.     FLine:        Integer;
  8.     FLinePos:     Integer;
  9.   public
  10.     constructor Create(ParseError: IXMLDOMParseError);
  11.     property ErrorCode: Integer read FErrorCode;
  12.     property Reason: String read FReason;
  13.     property SrcText: String read FSrcText;
  14.     property Line: Integer read FLine;
  15.     property LinePos: Integer read FLinePos;
  16.   end;
  17. constructor EXmlDParseError.Create(ParseError: IXMLDOMParseError);
  18. begin
  19.   inherited Create('XML Parse Error');
  20.   FErrorCode := ParseError.errorCode;
  21.   FReason := ParseError.reason;
  22.   FSrcText := ParseError.srcText;
  23.   FLine := ParseError.line;
  24.   FLinePos := ParseError.linePos;
  25. end;
  26.